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-- Calls. mesa, modified by Sweet, July 5, 1978 9:23 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE, wordlength], 

Code: FROM "code" USING [acstack, actenable, catchcount, cfs, CodePassInconsistancy, codeptr], 

CodeDefs: FROM "codedefs" USING [BDOIndex, BDONull, ChunkBase, CodeCCIndex, LabelCCIndex, LabelCCNull 
**, Lexeme, MaxParmsInStack, topostack], 

ComData: FROM "comdata" USING [stopping], 

ControlDefs: FROM "controldef s" USING [Lreg, returnOff set], 

ErrorDefs: FROM "errordefs" USING [error, Warning], 

FOpCodes: FROM "fopcodes" USING [qALLOC, qBLT, qCATCH, qDUP, qEFC, qFREE, qKFCB, qLFC, qLI, qLL, qLP, 
** qMRE, qMREL, qMXD, qMXDL, qMXW.qMXWL, qPORTI, qPORTO, qPUSH, qR, qRL, qSFC], 

InlineDefs: FROM "inl inedef s", 

LitDefs: FROM "litdefs" USING [STIndex], 

OpTableDefs: FROM "optabledef s M USING [instlength], 

PSADefs: FROM "p5adefs" USING [adjustacstack, AllocCodeCCItem, chkrandsonstack, CioutO, Cioutl, compu 
**tef ramesize, Coutjump, deletetomark, dumpstack, gentemplex, incrstack, insertlabel, labelalloc, loads 
**eiaddress t loadtsonaddress, LongTreeAddress , makeTOSaddrBDOItem, makeTOSlex, markstack, operandtype, 
**pop, P5Error, ReleaseLock, RequireStack, sCassign, transf erconstruct , tree! iteralvalue, wordsforsei], 
** 

P5BDefs: FROM M p5bdefs" USING [Ccatchphrase, pushconst, pushlex, pushlitval, pushlnestedprocdesc, pus 
**hrhs, sCcatchphrase], 

P5StmtExprDefs: FROM "p5stmtexprdef s" , 

SDDefs: FROM "sddefs" USING [sCopy, sError, sErrorList, sFork, sJoin, sNew, sRestart, sReturnError , s 
**ReturnErrorList, sSignal , sSignalList, sStart, sUnnamedError], 

SymDefs: FROM "symdefs" USING [BitAddress, bodytype, BTIndex, BTNull , CBTIndex, ContextLevel , CSEInde 
**x, CTXIndex, ctxtype, HTIndex, ISEIndex, 1G, MDIndex, SEIndex, SERecord, setype, TypeClass], 

SymSegDefs: FROM "symsegdefs" USING [FindExtension], 

SymTabDefs: FROM "symtabdef s" USING [UnderType, XferMode], 

TableDefs: FROM "tabledefs" USING [TableBase, TableNotif ier], 

TreeDefs: FROM "treedefs" USING [empty, scanlist, Treelndex, TreeLink, treetype]; 

DEFINITIONS FROM CodeDefs; 

Calls: PROGRAM 

IMPORTS MPtr: ComData, CPtr: Code, ErrorDefs, OpTableDefs, PSADefs, P5BDefs, SymSegDefs, SymTabDefs 
**, TreeDefs 

EXPORTS CodeDefs, P5ADefs, P5StmtExprDef s ■ 
BEGIN 
OPEN PSADefs, P5BDefs; 

-- imported definitions 

BYTE: TYPE - AltoDefs .BYTE; 

wordlength: CARDINAL » AltoDefs. wordlength; 

Lreg: INTEGER = ControlDefs .Lreg; 

returnOffset: CARDINAL » ControlDefs. returnOff set; 

sStart: BYTE ■ SDDefs . sStart; 

sRestart: BYTE * SDDefs. sRestart; 

sFork: BYTE - SDDefs. sFork; 

sJoin: BYTE * SDDefs. sJoin; 

STIndex: TYPE « LitDefs. STIndex; 

BitAddress: TYPE ■ SymDefs .BitAddress; 
BTIndex: TYPE » SymDefs. BTIndex; 
CBTIndex: TYPE = SymDefs. CBTIndex; 
BTNull: BTIndex - SymDefs. BTNull ; 
ContextLevel: TYPE = SymDefs. ContextLevel ; 
CSEIndex: TYPE » SymDefs .CSEIndex; 
CTXIndex: TYPE ■ SymDefs. CTXIndex; 
HTIndex: TYPE = SymDefs. HTIndex; 
ISEIndex: TYPE - SymDefs . ISEIndex; 
MDIndex: TYPE » SymDefs .MDIndex; 
1G: ContextLevel ■ SymDefs. 1G; 
SEIndex: TYPE « SymDefs .SEIndex; 
SERecord: TYPE - SymDefs. SERecord; 
TypeClass: TYPE « SymDefs. TypeClass; 

empty: TreeLink ■ TreeDefs. empty; 
Treelndex: TYPE ■ TreeDefs. Treelndex; 
TreeLink: TYPE ■ TreeDefs. TreeLink; 

tb: TableDefs. TableBase; — tree base (local copy) 
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seb: TableDefs.TableBase; -- semantic entry base (local copy) 

ctxb: TableDefs.TableBase; -- context entry base (local copy) 

bb: TableDefs.TableBase; -- body entry base (local copy) 

cb: ChunkBase; -- code base (local copy) 

CallsNotify: PUBLIC TableDefs .TableNotif ier ■ 

BEGIN -- called by allocator whenever table area is repacked 

seb <- base[SymDefs.setype]; 

ctxb «- base[SymDefs.ctxtype]; 

bb <- base[SymDefs.bodytype]; 

tb <- base[TreeDefs.treetypej; 

cb «• LOOPHOLE[tb]; 

RETURN 

END; 

Csyserror: PUBLIC PROCEDURE ■ 
BEGIN 

dumpstack[]; markstack[]; 
Csyscall[SDDef s.sUnnamedError]; 
RETURN 
END; 

Cnew: PUBLIC PROCEDURE [node: Treelndex] RETURNS[Lexeme] ■ 
BEGIN -- generate code for NEW 
dumpstack[]; markstack[]; 
IF ( tb+node). attrl THEN 

BEGIN 

pushrhs[(tb+node) .sonl]; 

Csyscall[SDDefs.sCopy]; 

END 
ELSE 

BEGIN 

pushconst[(tb+node).sonl]; 

Csyscall[SDDefs.sNew]; 

END; 
CPtr.acstack 4- l; incrstack[l]; 
RETURN[topostack] 
END; 

sCstart: PROCEDURE [node: Treelndex] RETURNS [nrets: CARDINAL] - 
BEGIN 

OPEN FOpCodes; 

ptsei: CSEIndex «- operandtype[(tb+node) .sonl]; 
dumpstack[]; markstack[]; 

[] «- pushparms[(tb+node) .son2, ptsei, FALSE]; 
push rhs[(tb+node). sonl]; 
Csyscall[sStart]; 
CPtr.acstack «- 0; 

callcatch[IF (tb+node) .nsons ■ 3 THEN (tb+node) .son3 ELSE empty]; 
WITH (seb+ptsei) SELECT FROM 

transfer a > nrets <- wordsforsei[outrecord]; 

ENDCASE; 
RETURN 
END; 

Cstart: PUBLIC PROCEDURE [node: Treelndex] » 
BEGIN 

[] «- sCstart[node]; 
RETURN 
END; 

Cstartexp: PUBLIC PROCEDURE [node: Treelndex] RETURNS [Lexeme] - 
BEGIN 
nrets: CARDINAL «- sCstart[node]; 

SELECT nrets FROM 
> MaxParmsInStack -> 
BEGIN 

CPtr.acstack <- 1; incrstack[l]; 
RETURN [IndirectReturnRecord[node t nrets]] 
END; 
# 1 -> 
BEGIN 
CPtr.acstack <- nrets; incrstack[nrets]; 
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RETURN [makeTOSlex[nrets]]; 
END; 
ENDCASE ■> 
BEGIN 

CPtr.acstack <- 1; incrstack[l]; 
RETURN [topostack]; 
END 
END; 

Crestart: PUBLIC PROCEDURE [node: Treelndex] - 
BEGIN 

dumpstack[]; markstack[]; 
pushrhs[( tb+node). sonl]; 
Csy s call [sRes tart]; 

callcatch[IF (tb+node) .nsons ■ 3 THEN (tb+node) .son3 ELSE empty]; 
RETURN 
END; 



Cstop: PUBLIC PROCEDURE [node: Treelndex] - / 

BEGIN OPEN FOpCodes; 

IF ~MPtr. stopping THEN SIGNAL CPtr .CodePassInconsistancy; 
Cioutl[qLL, returnOf f set] ; CioutO[qSFC]; 

callcatch[IF (tb+node) .nsons ■ 1 THEN (tb+node) .sonl ELSE empty]; 
RETURN 
END; 



callcatch: PROCEDURE [t: TreeLink] ■ 
BEGIN 
clabel: LabelCCIndex; 

WITH t SELECT FROM 
subtree «> 

IF t # empty THEN Ccatchphrase[index] 
ELSE 

IF CPtr.actenable # LabelCCNull THEN 
BEGIN 

clabel <- labelalloc[]; 
Cioutl[ FOpCodes. qCATCH, CPtr.cfs]; 
Coutjump[JumpA, clabel]; 
Coutjump[Jump t CPtr.actenable]; 
insertlabel[clabel]; 
END; 
ENDCASE; 
RETURN 
END; 



sCcall : PROCEDURE [node: Treelndex] RETURNS [nrets: CARDINAL] 
BEGIN -- generates code for procedure call statement 
OPEN FOpCodes; 

ptsei: CSEIndex «- operandtype[(tb+node) .sonl]; 
portcall: BOOLEAN ♦- SymTabDef s . XferMode[ptsei] « port; 
computedtarget: BOOLEAN; 
inlineTree: TreeLink; 
nparms: CARDINAL; 
savestacksize: INTEGER; 
sei: ISEIndex; 
bti: CBTIndex; 
a: BitAddress; 
inlineCall : BOOLEAN; 

WITH (tb+node). sonl SELECT FROM 
symbol -> 

BEGIN 

sei ♦• index; 

inlineCall *- (seb+sei) .constant AND (seb+sei) .extended; 

computedtarget «- (ctxb+(seb+sei) .ctxnum) .ctxlevel # 1G; 

END; 
ENDCASE -> 

BEGIN 

inlineCall <- FALSE; 

computedtarget ♦- TRUE; 

END; 
IF -inlineCall THEN dumpstack[]; 
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markstack[]; 

nparms <- pushparms[(tb+node) ,son2, ptsei, FALSE]; 
IF inlineCall THEN 
BEGIN 

deletetomark[]; 

inlineTree <- SymSegDefs.FindExtension[sei]; 
WITH inlineTree SELECT FROM 

subtree ■> TreeDef s.scan1ist[(tb+index) .sonl, Codelnline]; 
ENDCASE ■> P5ADefs.P5Error[513]; 
END 
ELSE IF computedtarget THEN 
IF portcall THEN 
BEGIN 

[] «- loadtsonaddress[(tb+node) .sonl]; 
deletetomark[]; incrstack[l]; 
CioutO[qPORTO]; CioutO[qPORTI]; 
END 
ELSE 
BEGIN 

pushrhs[( tb+node) .sonl]; 
deletetomark[]; incrstack[l]; 
CioutO[qSFC]; 
END 
ELSE 
BEGIN 

deletetomark[]; 
IF (seb+sei). constant THEN 
BEGIN 

bti «- (seb+sei) . idinfo; 
IF bti » BTNull THEN 

BEGIN pushlitval[(seb+sei).idvalue]; CioutO[qSFC] END 
ELSE 

IF (bb+bti). nesting « Inner THEN 

BEGIN pushlnestedprocdesc[bti]; CioutO[qSFC]; END 
ELSE Cioutl[qLFC, (bb+bti ) .entrylndex]; 
END 
ELSE IF portcall THEN 

BEGIN [] 4- loadseiaddress[sei]; CioutO[qPORTO]; CioutO[qPORTI]; END 
ELSE IF (seb+sei). linkSpace THEN 

BEGIN a <- (seb+sei) .idvalue; Cioutl[qEFC, a.wd]; END 
ELSE BEGIN pushlex[[se[sei]]] ; CioutO[qSFC] END; 
END; 
WITH (seb+ptsei) SELECT FROM 

transfer «> nrets «- wordsforsei[outrecord]; 
ENDCASE -> P5ADefs.P5Error[514]; 
IF inlineCall THEN 
BEGIN 

IF (tb+node).nsons ■ 3 THEN 
BEGIN 

savestacksize «- CPtr.acstack; 
CPtr.acstack <- 0; 
WITH (tb+node).son3 SELECT FROM 
subtree »> Ccatchphrase[index]; 
ENDCASE; 
CPtr.acstack <- savestacksize; 
END; 
adjustacstack[nrets-nparms]; 
incrstack[nrets]; 
END 
ELSE 
BEGIN 

CPtr.acstack <- 0; 

callcatch[IF (tb+node) .nsons » 3 THEN (tb+node) .son3 ELSE empty]; 
incrstack[CPtr .acstack <- IF nrets > MaxParmsInStack THEN 1 ELSE nrets]; 
END; 
RETURN 
END; 

sCsigerr: PROCEDURE [node: Treelndex] RETURNS [nrets: CARDINAL] - 
BEGIN -- generates code for signal/error 
ptsei: CSEIndex <- operandtype[(tb+node) .sonl]; 
nparms: CARDINAL; 

dumpstack[]; markstack[]; 

IF (tb+node) .sonl ■ empty THEN push! itval[~l] 



Calls. mesa 2-Sep-78 12:59:59 Page 



ELSE pushrhs[(tb+node).sonl]; 

nparms *- pushparms[(tb+node) ,son2, ptsei, TRUE]; 

IF (tb+node).name ■ signal THEN 

Csyscall[IF nparms > 1 THEN SDDefs.sSignalList ELSE SDDefs.sSignal] 
ELSE 

Csyscall[IF nparms > 1 THEN SDDefs.sErrorList ELSE SDDef s.sError]; 
WITH (seb+ptse1) SELECT FROM 

transfer ■> nrets <- wordsforsei[outrecord]; 

ENDCASE; 
CPtr.acstack <- 0; 

callcatch[IF (tb+node) .nsons ■ 3 THEN (tb+node) .son3 ELSE empty]; 
IF (tb+node) .name ■ error THEN Coutjump[JumpRet,LabelCCNull]; 
RETURN 
END; 

Cxerror: PUBLIC PROCEDURE [node: Treelndex] - 
BEGIN -- generates code for RETURN WITH error 
ptsei: CSEIndex «- operandtype[(tb+node) .sonl]; 
nparms: CARDINAL; 
monitored: BOOLEAN <- (tb+node) .attrl; 

IF monitored AND (tb+node) . attr2 THEN 

BEGIN ReleaseLock[]; monitored «- FALSE END; 
dumpstack[]; markstack[]; 

IF (tb+node). sonl ■ empty THEN push! itval[-l] 
ELSE pushrhs[(tb+node) .sonl]; 

nparms <- pushparms[(tb+node) .son2, ptsei, TRUE]; 
IF monitored THEN 

BEGIN 

RequireStack[0]; 

ReleaseLock[]; 

chkrandsonstack[2]; 

END; 
Csyscall[IF nparms > 1 THEN SDDef s.sReturnErrorList 

ELSE SDDefs.sReturnError]; 
Cou tjump[JumpRet, Label CCNull]; 
RETURN 
END; 

Codelnline: PROCEDURE [t: TreeLink] - 
BEGIN 

opByte: ARRAY [0..3] OF BYTE; 
iLength: CARDINAL «• 0; 
tLength: CARDINAL; 
i: CARDINAL; 
c: CodeCCIndex; 

PickUpByte: PROCEDURE [t: TreeLink] ■ 
BEGIN 
opByte[iLength] <- WITH t SELECT FROM 

symbol ■> (seb+index) . idvalue,- 

ENDCASE ■> treeliteralvalue[t]; 
IF (iLength *■ iLength+1) > 3 THEN ErrorDef s.error[instLength]; 
END; 

TreeDef s . scanl ist[t , PickUpByte] ; 

IF iLength « THEN RETURN; 

tLength <- OpTableDef s. instlength[opByte[0]]; 

IF tLength # AND iLength # tLength THEN 

ErrorDef s .Warning [ins tLength]; 
c «- AllocCodeCCItem[iLength-l]; 
cb[c].realinst <- TRUE; 
cb[c].inst <- opByte[0]; 
cb[c].isize <- iLength; 

FOR i IN [1.. iLength) DO cb[c].parameters[i] ♦■ opByte[i]; ENDLOOP; 
END; 

pushparms: PROCEDURE [t: TreeLink, ptsei: CSEIndex, sigerr: BOOLEAN] RETURNS [nparms: CARDINAL] 
BEGIN 
rsei: CSEIndex; 

WITH (seb+ptsei) SELECT FROM 
transfer ■> 

BEGIN nparms «- wordsforsei[inrecord]; rsei «- SymTabDef s .UnderType[inrecord] END; 
ENDCASE -> P5ADefs.P5Error[515]; 
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IF nparms > MaxParmsInStack OR (sigerr AND nparms > 1) THEN 

BEGIN 

pushl itval [computet ramesize[np arms]]; 

CioutO[FOpCodes.qALLOC]; 

transferconstruct[makeTOSaddrBDOItem[wordlength], t, rsei]; 

END 
ELSE IF sigerr AND nparms - THEN pushl itval[-l] 
ELSE transferconstruct[BDONull , t, rsei]; 
RETURN 
END; 

Ccall: PUBLIC PROCEDURE [node: Treelndex] ■ 
BEGIN 

[] «- sCcall[node]; 
RETURN 
END; 

Csigerr: PUBLIC PROCEDURE [node: Treelndex] ■ 
BEGIN 

[] *- sCsigerr[node]; 
RETURN 
END; 

Ccallexp: PUBLIC PROCEDURE [node: Treelndex] RETURNS [Lexeme] - 
BEGIN 
nrets: CARDINAL «- sCcall[node]; 

SELECT nrets FROM 
> MaxParmsInStack a > 

BEGIN 

RETURN [IndirectReturnRecord[node, nrets]] 

END; 
# 1 -> 

BEGIN 

RETURN [makeTOSlex[nrets]]; 

END; 
ENDCASE -> 

BEGIN 

RETURN [topostack]; 

END 
END; 

LogHeapFree: PUBLIC SIGNAL [calltree: TreeLink] RETURNS [BOOLEAN, se Lexeme] ■ CODE; 

IndirectReturnRecord: PROCEDURE [node: Treelndex, nrets: CARDINAL] RETURNS[Lexeme] ■ 
BEGIN 

OPEN FOpCodes; 
tlex, hi ex: se Lexeme; 
logged: BOOLEAN; 
r: BDOIndex; 

[logged, hlex] *- SIGNAL LogHeapFree[TreeLink[subtree[node]]]; 
IF -logged THEN 

BEGIN 

tlex <- gentemplex[l]; 

sCassign[ tlex. lexsei]; 

CioutO[qPUSH]; 

hlex <- gentemplex[nrets]; 

pushlitval[nrets]; 

[] «- loadseiaddress[hlex. lexsei]; 

CioutO[qBLT]; 

pushlex[tlex]; 

CioutO[qFREE]; 

RETURN [hlex] 

END; 
IF hlex # topostack THEN 

BEGIN sCassign[hlex. lexsei]; CioutO[qPUSH]; END; 
r «- makeTOSaddrBDOItem[wordlength]; 
cb[r],off set. size *- nrets*wordlength; 
RETURN [Lexeme[bdo[r]]] 
END; 

Csigerrexp: PUBLIC PROCEDURE [node: Treelndex] RETURNS [Lexeme] - 
BEGIN 

OPEN FOpCodes; 
nrets: CARDINAL <- sCsigerr[node]; 
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CPtr.acstack *- 1; incrstack[l]; 
SELECT nrets FROM 

> 1 ■> RETURN [IndirectReturnRecord[node, nrets]]; 

ENDCASE -> RETURN [topostack] 
END; 

Csyscall: PUBLIC PROCEDURE [alpha: BYTE] ■ 

BEGIN -- puts out call via system transfer vector 

deletetomark[]; 

Cioutl[FOpCodes.qKFCB, alpha]; 

CPtr.acstack ♦- 0; 

RETURN 

END; 

Csyscalln: PUBLIC PROCEDURE [alpha: BYTE, n: CARDINAL] - 
BEGIN -- puts out call via system transfer vector 
deletetomark[]; 

Cioutl[FOpCodes.qKFCB, alpha]; 
CPtr.acstack <- n; 
incrstack[n]; 
RETURN 
END; 

Cwait: PUBLIC PROCEDURE [node: Treelndex] - 
BEGIN OPEN FOpCodes; 
retry: LabelCCIndex; 
tladdrsize, t2addrsize: CARDINAL; 
longWait: BOOLEAN; 

tladdrsize <- loadtsonaddress[(tb+node) .sonl]; 
IF tladdrsize « wordlength AND LongTreeAddress[(tb+node) .son2] THEN 

CioutO[qLP]; 
t2addrsize «- loadtsonaddress[(tb+node) .son2] ; 
longWait <- tladdrsize > wordlength OR t2addrsize > wordlength; 
IF -longWait THEN 

BEGIN 

CioutO[qDUP]; Cioutl[qR, 1]; -- load timeout 

CioutO[qMXW]; 

END 
ELSE 

BEGIN 

IF t2addrsize * wordlength THEN CioutO[qLP]; 

[] *- loadtsonaddress[(tb+node) .son2]; 

IF t2addrsize ■ wordlength THEN CioutO[qLP]; 

Cioutl[qRL, 1]; 

CioutO[qMXWL]; 

END; 
retry «- labelalloc[]; 
insertlabel[retry]; 
[] «- loadtsonaddress[(tb+node) .sonl]; 

IF longWait AND tladdrsize = wordlength THEN CioutO[qLP]; 
[] *- loadtsonaddress[(tb+node) .son2]; 

IF longWait AND t2addrsize ■ wordlength THEN CioutO[qLP]; 
CioutO[IF longWait THEN qMREL ELSE qMRE]; 
CPtr.acstack «- 0; pop[]; 

callcatch[IF ( tb+node) .nsons ■ 3 THEN (tb+node) .son3 ELSE empty]; 
CPtr.acstack *- 1; incrstack[l]; 
Cioutl[FOpCodes.qLI, 0]; 
Coutjump[JumpE , retry]; 
END; 

Cforkexp: PUBLIC PROCEDURE [node: Treelndex] RETURNS [Lexeme] - 
BEGIN 

ptsei: CSEIndex «- operandtype[( tb+node) .sonl]; 
dumpstack[]; markstack[]; 

[] <- pushparms[(tb+node) .son2, ptsei, FALSE]; 
push rhs[( tb+node) .sonl]; 
Csyscall[sFork]; 

callcatch[IF (tb+node) .nsons - 3 THEN (tb+node) .son3 ELSE empty]; 
CPtr.acstack «- 1; incrstack[l]; 
RETURN [topostack]; 
END; 

sCjoin: PUBLIC PROCEDURE [node: Treelndex] RETURNS [nrets: CARDINAL] - 
BEGIN 
localcatch: BOOLEAN <- (tb+node) .nsons ■ 3; 
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ptsei: CSEIndex «- operandtype[(tb+node) .sonl]; 

aroundlabel, firstcatch: LabelCCIndex; 

savcfs: CARDINAL <- CPtr.cfs; 

r: CodeCCIndex; 

dumpstack[]; markstack[]; 

push rhs[(tb+node). sonl]; 

Csyscall[sJoin]; 

IF localcatch THEN 

BEGIN 

aroundlabel <- labelalloc[]; 

firstcatch <- labelalloc[]; 

CPtr.catchcount <- CPtr.catchcount + 1; 

Cioutl[FOpCodes.qCATCH, 0]; 

r <- LOOPHOLE[CPtr.codeptr, CodeCCIndex]; 

Coutjump[JumpA, aroundlabel]; 

insert label [firstcatch]; 

WITH (tb+node).son3 SELECT FROM 
subtree ■> sCcatchphrase[index]; 
ENDCASE ■> P5ADefs.P5Error[516]; 

cb[r].parameters[l] <- CPtr.cfs; 

insert label [around label]; 

CPtr.catchcount «- CPtr.catchcount - 1; 

END 
ELSE callcatch[empty]; 
CPtr.acstack <- 1; incrstack[l]; 
Ciout0[FOpCodes.qSFC]; 
IF localcatch THEN 

BEGIN 

aroundlabel «- labelalloc[]; 

Cioutl[FOpCodes.qCATCH, CPtr.cfs]; 

Coutjump[JumpA, aroundlabel]; 

Coutjump[Jump, firstcatch]; 

insert label [around label]; 

CPtr.cfs <- savcfs; 

END 
ELSE callcatch[empty]; 
WITH (seb+ptsei) SELECT FROM 

transfer a > nrets «- wordsforsei[outrecord]; 

ENDCASE; 
END; 

Cjoinexp: PUBLIC PROCEDURE [node: Treelndex] RETURNS [Lexeme] 
BEGIN 

nrets: CARDINAL «- sCjoin[node]; 
SELECT nrets FROM 
> MaxParmsInStack ■> 
BEGIN 

CPtr.acstack <- 1; incrstack[l]; 
RETURN [IndirectReturnRecord[node, nrets]] 
END; 
# 1 »> 
BEGIN 

CPtr.acstack «- nrets; incrstack[nrets]; 
RETURN [makeTOSlex[nrets]]; 
END; 
ENDCASE »> 
BEGIN 

CPtr.acstack <- 1; incrstack[l]; 
RETURN [topostack]; 
END 
END; 

Cjoin: PUBLIC PROCEDURE [node: Treelndex] ■ 
BEGIN 

[] «- sCjoin[node]; 
END; 

Cunlock: PUBLIC PROCEDURE [node: Treelndex] - 
BEGIN 

mlock: TreeLink ♦- (tb+node) . sonl; 
lockaddrsize: CARDINAL; 
IF mlock it empty THEN 

BEGIN lockaddrsize «- loadtsonaddress[mlock]; 
CioutO[IF lockaddrsize • wordlength THEN FOpCodes.qMXD 

ELSE FOpCodes.qMXDL]; 
END; 
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RETURN 
END; 



END. 



